home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 10, No. 05 (1989-05)(MicroSPARC)(Side A)[a].zip / Nibble Volume 10, No. 05 (1989-05)(MicroSPARC)(Side A)[a].po / SUPERGET.DEMO.bas < prev    next >
BASIC Source File  |  1996-12-24  |  473b  |  17 lines
  1. 10  IF  PEEK(768) = 98  AND  PEEK(818) = 41  THEN 40
  2. 20  PRINT  CHR$(4);"BLOAD SUPERGET"
  3. 30  CLEAR 
  4. 40  HOME 
  5. 50  PRINT "lower-UPPERCase Conversion ON"
  6. 60  CALL 768,"YOUR CHOICE -->";A$
  7. 70  PRINT : PRINT A$
  8. 80  PRINT : PRINT : PRINT 
  9. 90  CALL 768,"A OR B :";A$,"  B OR C :";B$
  10. 100  PRINT : PRINT A$,B$
  11. 110  IF FLAG = 1  THEN  END 
  12. 120  FOR T = 1 TO 6000: NEXT 
  13. 130 FLAG = 1
  14. 140  POKE 818,234: POKE 819,234
  15. 150  HOME 
  16. 160  PRINT "lower-UPPERCase Conversion OFF"
  17. 170  GOTO 60